**This Do file is to replicate the main analyses in the paper. However, at present, we did not release the data that includes the county vote and thus this Do file would not run on the data uploaded. 
**We did not release that data to prevent identification of particular respondents a la IRB requirements. We are happy to send the data with presidential vote to anyone who requests it and agrees to confidentiality. E-mail us for the data.

**create presidential vote intearctions
gen demclin = dem*county_clinton
gen repclin = rep*county_clinton

**Main results (table 2 and Figure 1 stats)
sum realresponse if bounceback == 0
tab condition, sum(realresponse), if bounceback == 0

logit realresponse afam dem rep anypolitics if bounceback == 0
outreg2 using response, alpha(.01, .05, .1) bdec(3) sdec(3) ctitle("Response to e-mail") word append 

logit realresponse afam dem rep anypolitics county_clinton repclin demclin if bounceback == 0
outreg2 using response, alpha(.01, .05, .1) bdec(3) sdec(3) ctitle("Response to e-mail with democractic Vote Share") word append 

prtest  realresponse, by( afam ), if (condition == 1 | condition == 2) & bounceback == 0

ttest  realresponse, by(racethreat), if bounceback == 0


